home *** CD-ROM | disk | FTP | other *** search
/ Ultra Gameplayers 109 / Ultra Gameplayers 109.iso / pc / media / new_ugp.dxr / 00228.ls < prev    next >
Encoding:
Text File  |  1998-02-10  |  487 b   |  9 lines
  1. on NewAdBanner titleObj
  2.   set sNum to GetGlobal(#adBanner)
  3.   set dest to the name of member the memberNum of sprite sNum
  4.   set button to BasicButton(titleObj, [#hotSprites: [sNum], #statusMessage: "More about" && dest, #destination: dest])
  5.   set scrollParams to [#spritenum: sNum, #scrollRate: 5, #timeLimit: 15, #button: button]
  6.   set the adBanner of titleObj to NewObject(titleObj, "Scroll Banner Class", scrollParams)
  7.   append(the eventList of titleObj, the adBanner of titleObj)
  8. end
  9.